home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1009_Picture < prev    next >
Encoding:
Text File  |  1990-03-23  |  582 b   |  36 lines
  1. %case window field%
  2. %case create%
  3. %case dispose%
  4. %case mousein%
  5. %case update%
  6.     SetRect (bounds, %left%, %top%, %right%, %bottom%);
  7.     DrawPictureID (%pictID%, bounds);
  8. %case activate%
  9. %case track%
  10. %case itemNr%
  11.     %DefineItem%
  12. %case dialog field%
  13.     %if enabled%
  14.         %fieldname%:%    %Handle;
  15.     %end if%
  16. %case init field%
  17.     %if enabled%
  18.         %fieldname% := nil;
  19.     %end if%
  20. %case auxiliary%
  21.     %if enabled%
  22.         {----------}
  23.         Procedure Do%itemname%
  24.         {
  25.         } {Do%itemname%}
  26.         
  27.     %end if%
  28. %case filter%
  29. %case set%
  30. %case hit%
  31.     %if enabled%
  32.         %Itemname%: begin
  33.                 Do%Itemname%;
  34.             end;
  35.     %end if%
  36. %case finish%